QuickTime VR Showcase/QuickTime VR Showcase.iso/3rd Parties/Software/Apple/AMT 2.1 New Features Demo/SOURCES/oflipbooks_2_11.k

Text File | 1996-12-21 | 18.6 KB | 942 lines | [TEXT/MPS ]

object oflipbooks_2_11 is cDefaultContainer
with
    Binder is oBinder;
    Label is -1;
    Items is [
        oKeyboard_Volume__11_54,
        oTimer_Train___Man_11_44,
        oFB_GLASS_MOV_11_49,
        oFB_SNDT_MOV_11_48,
        oClick_Sound__Up__11_2,
        oClick_Sound__down__11_3,
        oFB_BCK2_PIC_11_15,
        oArrow_Right_Yellow_Highligh_11_4,
        oArrow_Left_Yellow_Highlight_11_5,
        oExit_Yellow_Highlight_11_6,
        oExplain_Yellow_Highlight_11_46,
        oMenu_Yellow_Highlight_11_8,
        oArrow_Left_Inverse_11_9,
        oArrow_Right_Inverse_11_10,
        oExit_Inverse_11_11,
        oExplain_Inverse_11_12,
        oMenu_Inverse_11_13,
        oFB_NAME_PIC_11_16,
        oFB_TRAIN_PIC_11_18,
        oFB_NEON_PIC_11_21,
        oFB_MANW_PIC1_11_25,
        oFB_MANW_PIC2_11_26,
        oFB_WMN_PIC_11_28,
        oFB_MDWN_PIC1_11_29,
        oFB_MDWN_PIC1_11_30,
        oFB_MDWN_PIC1_11_31,
        oFB_SMWN_PIC_11_32,
        oFB_SMWN_PIC_11_33,
        oFB_SMWN_PIC_11_41,
        oFB_BGBL_PIC_11_34,
        oFB_BGBL_PIC2_11_35,
        oFB_HLP2_PIC_11_47
    ];
end;


object oKeyboard_Volume__11_54 is cKeyboardHandler
with
    Behavior is cDefaultBehavior
    has
        KeyDown(theTarget, theKey)
        use
            KeyMatch;

            do
                KeyMatch := theKey = '-';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(-1);
                end;
                KeyMatch := theKey = '=';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
                KeyMatch := theKey = '+';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
            end;

    with
        Enabled is true; Shown is false;
        X is 30; Y is 24; Width is 0; Height is 0;
    end;
end;


object oTimer_Train___Man_11_44 is cTimerHandler
with
    TimerShown is false;
    Duration is 1728000;
    Ageing is 30;
    ResetOnInteraction is false;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Run(true);
                oFB_SNDT_MOV_11_48.Run(true);
            end;

        OnTime(theTarget, theTime)
            do
                if theTime = -1 then
                    theTarget.RegisterOnTime(240);
                else if theTime = 240 then
                    oFB_MANW_PIC1_11_25.Run(true);
                end;
                if theTime = -1 then
                    theTarget.RegisterOnTime(510);
                else if theTime = 510 then
                    oFB_TRAIN_PIC_11_18.Show(true);
                    oFB_TRAIN_PIC_11_18.Run(true);
                end;
                if theTime = -1 then
                    theTarget.RegisterOnTime(1620);
                else if theTime = 1620 then
                    oFB_TRAIN_PIC_11_18.Show(true);
                    oFB_TRAIN_PIC_11_18.Run(true);
                end;
                if theTime = -1 then
                    theTarget.RegisterOnTime(2700);
                else if theTime = 2700 then
                    oFB_TRAIN_PIC_11_18.Show(true);
                    oFB_TRAIN_PIC_11_18.Run(true);
                end;
                if theTime = -1 then
                    theTarget.RegisterOnTime(3600);
                else if theTime = 3600 then
                    oFB_TRAIN_PIC_11_18.Show(true);
                    oFB_TRAIN_PIC_11_18.Run(true);
                end;
            end;

    with
        Enabled is false; Shown is false;
        X is 170; Y is 360; Width is 5; Height is 11;
    end;
end;


object oFB_GLASS_MOV_11_49 is cMovieHandler
with
    Supplier is oFB_GLASS_MOV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 250; Y is 187; Width is 0; Height is 0;
    end;
end;


object oFB_SNDT_MOV_11_48 is cMovieHandler
with
    Supplier is oFB_SNDT_MOV;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Run(true);
            end;

        Finished(theTarget)
            do
                theTarget.GoToBeginning();
                theTarget.Run(true);
                oTimer_Train___Man_11_44.GoToBeginning();
            end;

    with
        Enabled is false; Shown is false;
        X is 297; Y is 86; Width is 0; Height is 0;
    end;
end;


object oClick_Sound__Up__11_2 is cSoundHandler
with
    Supplier is oS3_2clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 247; Y is 128; Width is 32; Height is 24;
    end;
end;


object oClick_Sound__down__11_3 is cSoundHandler
with
    Supplier is oS3_clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 304; Y is 228; Width is 32; Height is 24;
    end;
end;


object oFB_BCK2_PIC_11_15 is cPictureHandler
with
    Duration is -1;
    Supplier is oFB_BCK2_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object oArrow_Right_Yellow_Highligh_11_4 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Right_Inverse_11_10.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__11_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Right_Inverse_11_10.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__11_2.Run(true);
                oBinder.Goto(oMain_Menu_1);
                oBinder.SetTransition(oVerticalStore, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 473; Y is 426; Width is 55; Height is 54;
    end;
end;


object oArrow_Left_Yellow_Highlight_11_5 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oArrow_Left_Inverse_11_9.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__11_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oArrow_Left_Inverse_11_9.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__11_2.Run(true);
                oBinder.Goto(oFlipbooks_1_10);
                oBinder.SetTransition(oVerticalStore, 30);
            end;

    with
        Enabled is true; Shown is true;
        X is 377; Y is 426; Width is 60; Height is 54;
    end;
end;


object oExit_Yellow_Highlight_11_6 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExit_Inverse_11_11.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__11_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExit_Inverse_11_11.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__11_2.Run(true);
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 426; Width is 111; Height is 54;
    end;
end;


object oExplain_Yellow_Highlight_11_46 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                if oQueryCursor=void then
                    oQueryCursor.Load();
                end;
                oQueryCursor.Set();
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oExplain_Inverse_11_12.Show(true);
                oBinder.Refresh();
                oClick_Sound__down__11_3.Run(true);
                oFB_HLP2_PIC_11_47.Show(not oFB_HLP2_PIC_11_47.IsShown());
                oFB_WMN_PIC_11_28.Enable(not oFB_WMN_PIC_11_28.IsEnabled());
                oFB_NEON_PIC_11_21.Enable(not oFB_NEON_PIC_11_21.IsEnabled());
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oExplain_Inverse_11_12.Show(false);
                oBinder.Refresh();
                oClick_Sound__Up__11_2.Run(true);
            end;

    with
        Enabled is true; Shown is true;
        X is 289; Y is 427; Width is 87; Height is 53;
    end;
end;


object oMenu_Yellow_Highlight_11_8 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oMenu_Inverse_11_13.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__11_3.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oMenu_Inverse_11_13.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__11_2.Run(true);
                oBinder.Goto(oMain_Menu_1);
            end;

    with
        Enabled is true; Shown is true;
        X is 163; Y is 427; Width is 126; Height is 53;
    end;
end;


object oArrow_Left_Inverse_11_9 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ALI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 381; Y is 441; Width is 51; Height is 40;
    end;
end;


object oArrow_Right_Inverse_11_10 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ARI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 477; Y is 438; Width is 50; Height is 42;
    end;
end;


object oExit_Inverse_11_11 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 439; Width is 112; Height is 42;
    end;
end;


object oExplain_Inverse_11_12 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_EXI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 291; Y is 438; Width is 87; Height is 43;
    end;
end;


object oMenu_Inverse_11_13 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 167; Y is 438; Width is 123; Height is 43;
    end;
end;


object oFB_NAME_PIC_11_16 is cFlipbookHandler
with
    FirstFrame is 1;
    Looping is true;
    Rythm is 60;
    Supplier is oFB_NAME_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 188; Y is 8; Width is 235; Height is 116;
    end;
end;


object oFB_TRAIN_PIC_11_18 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 20;
    Supplier is oFB_TRAIN_PIC;
    Behavior is cDefaultBehavior
    has
        Finished(theTarget)
            do
                theTarget.GoToBeginning();
                oFB_TRAIN_PIC_11_18.Show(false);
            end;

    with
        Enabled is false; Shown is false;
        X is 169; Y is 342; Width is 322; Height is 42;
    end;
end;


object oFB_NEON_PIC_11_21 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is true;
    Rythm is 20;
    Supplier is oFB_NEON_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 469; Y is 151; Width is 84; Height is 54;
    end;
end;


object oFB_MANW_PIC1_11_25 is cFlipbookHandler
with
    FirstFrame is 1;
    Looping is false;
    Rythm is 10;
    Supplier is oFB_MANW_PIC;
    Behavior is cDefaultBehavior
    has
        Finished(theTarget)
            do
                oFB_MANW_PIC2_11_26.Run(true);
                oFB_MANW_PIC2_11_26.Show(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 506; Y is 334; Width is 26; Height is 40;
    end;
end;


object oFB_MANW_PIC2_11_26 is cFlipbookHandler
with
    FirstFrame is 1;
    Looping is false;
    Rythm is 10;
    Supplier is oFB_MANW_PIC;
    Behavior is cDefaultBehavior
    has
        Finished(theTarget)
            do
                oFB_WMN_PIC_11_28.Run(true);
                oFB_GLASS_MOV_11_49.Run(true);
            end;

    with
        Enabled is false; Shown is false;
        X is 548; Y is 334; Width is 26; Height is 40;
    end;
end;


object oFB_WMN_PIC_11_28 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 15;
    Supplier is oFB_WMN_PIC;
    Behavior is cDefaultBehavior
    has
        MouseDown(theTarget, theX, theY)
            do
                theTarget.Run(true);
                oFB_GLASS_MOV_11_49.Run(true);
            end;

        Finished(theTarget)
            do
                theTarget.GoToBeginning();
            end;

    with
        Enabled is true; Shown is true;
        X is 607; Y is 334; Width is 26; Height is 40;
    end;
end;


object oFB_MDWN_PIC1_11_29 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is true;
    Rythm is 120;
    Supplier is oFB_MDWN_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 431; Y is 146; Width is 9; Height is 11;
    end;
end;


object oFB_MDWN_PIC1_11_30 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is true;
    Rythm is 100;
    Supplier is oFB_MDWN_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 380; Y is 246; Width is 9; Height is 11;
    end;
end;


object oFB_MDWN_PIC1_11_31 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is true;
    Rythm is 205;
    Supplier is oFB_MDWN_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 405; Y is 147; Width is 10; Height is 10;
    end;
end;


object oFB_SMWN_PIC_11_32 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is true;
    Rythm is 165;
    Supplier is oFB_SMWN_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 537; Y is 108; Width is 8; Height is 9;
    end;
end;


object oFB_SMWN_PIC_11_33 is cFlipbookHandler
with
    FirstFrame is 2;
    Looping is true;
    Rythm is 45;
    Supplier is oFB_SMWN_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 568; Y is 122; Width is 8; Height is 9;
    end;
end;


object oFB_SMWN_PIC_11_41 is cFlipbookHandler
with
    FirstFrame is 2;
    Looping is true;
    Rythm is 222;
    Supplier is oFB_SMWN_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 568; Y is 94; Width is 8; Height is 9;
    end;
end;


object oFB_BGBL_PIC_11_34 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is true;
    Rythm is 98;
    Supplier is oFB_BGBL_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 243; Y is 234; Width is 12; Height is 16;
    end;
end;


object oFB_BGBL_PIC2_11_35 is cFlipbookHandler
with
    FirstFrame is 1;
    Looping is true;
    Rythm is 300;
    Supplier is oFB_BGBL_PIC;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Run(true);
            end;

    with
        Enabled is false; Shown is true;
        X is 298; Y is 282; Width is 12; Height is 16;
    end;
end;


object oFB_HLP2_PIC_11_47 is cPictureHandler
with
    Duration is -1;
    Supplier is oFB_HLP2_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 169; Y is 0; Width is 471; Height is 425;
    end;
end;